home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspsrcdr.arc / DSPSRCDR.CMD < prev    next >
Encoding:
Text File  |  1991-12-04  |  1.9 KB  |  32 lines
  1.  /* (C) - Copyright 1988 by Shaw-Barton, Inc., Coshocton, OH 43812   */
  2.  /*                                                                  */
  3.  /* TITLE:        DSPSRCDIR (CMD)                                    */
  4.  /* AUTHOR:       Joseph L. Bolen                                    */
  5.  /* DATE WRITTEN: August 1988                                        */
  6.  /*                                                                  */
  7.  /* DESCRIPTION:  Selective reformat of DSPFD TYPE(*MBRLIST)         */
  8.  /*                                                                  */
  9.  /* CALLS:        DSPSRCDIR1 (CLP) as Comand Program Processor       */
  10.  /*                                                                  */
  11.  DSPSRCDIR:  CMD        PROMPT('Display Source Directory')
  12.  
  13.              PARM       KWD(TYPE) TYPE(*CHAR) LEN(5) DFT(*RPG) +
  14.                           SPCVAL((*RPG) (*CLP) (*CMD) (*DSPF) (*PRTF) +
  15.                           (*PF) (*LF) (*TXT) (*ALL)) PROMPT('Source +
  16.                           Type:')
  17.              PARM       KWD(MBR) TYPE(*GENERIC) LEN(10) DFT(*ALL) +
  18.                           SPCVAL((*ALL)) PROMPT('Member Name- +
  19.                           Generic*:')
  20.              PARM       KWD(FILE) TYPE(FILE) PROMPT('Source file +
  21.                           name- Generic*:')
  22.              PARM       KWD(OUTPUT) TYPE(*LGL) RSTD(*YES) DFT(*) +
  23.                           SPCVAL((* '0') (*LIST '1') (*PRINT '1')) +
  24.                           EXPR(*YES) PROMPT('Output option (* or +
  25.                           *Print):')
  26.  FILE:       QUAL       TYPE(*GENERIC) DFT(QRPGSRC) SPCVAL((*ALL) +
  27.                           (QRPGSRC) (QCLSRC) (QCMDSRC) (QDDSSRC) +
  28.                           (QTXTSRC))
  29.              QUAL       TYPE(*NAME) DFT(*USRLIBL) SPCVAL((*USRLIBL) +
  30.                           (*ALLUSR) (*ALL) (*LIBL)) PROMPT('Library +
  31.                           name:')
  32.